home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / horse.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  4.3 KB  |  235 lines
  1. 1  CLS:KEY OFF
  2. 10  PRINT"HORSE RACE":Q2=5
  3. 20  PRINT "ANY NUMBER OF PLAYERS CAN BET ON THE RESULTS."
  4. 30  PRINT "EXAMPLE OF BET; 1,2,200,0 ."
  5. 40  PRINT"YOU BORROWED 5$ IN CASE YOU LOST ALOT.":PRINT
  6. 50  PRINT"      SEVENTH - 1 MILE, 3 YR. OLDS       POST 2:35"
  7. 60  PRINT
  8. 70  PRINT"1 MAN O' WAR  (3:1); 2 CITATION    (4:1);"; 
  9. 80  PRINT" 3 WHIRLAWAY   (5:1);"
  10. 90  PRINT"4 ASSAULT     (8:1); 5 SEABISCUIT  (9:1);";
  11. 100  PRINT" 6 GALLANT FOX(11:1);"
  12. 110  PRINT"7 STYMIE     (20:1); 8 COALTOWN   (30:1);"
  13. 120  PRINT
  14. 130  PRINT"ENTER HORSE(1-8);TO WIN,PLACE,SHOW(1,2,3);AND THE WAGER."
  15. 140  PRINT "AND 0 FOR NO MORE BETTING OR 1 OR MORE BETTING."
  16. 150  LET S = 0
  17. 160  PRINT
  18. 170  LET S = S + 1
  19. 180  PRINT"BET NO. ";S;
  20. 190  INPUT T(S),U(S),V(S),Y1
  21. 200  LET T(S)=ABS(INT(T(S)))
  22. 210  IF T(S)>8 THEN 260
  23. 220  IF T(S)<1 THEN 260
  24. 230  LET U(S)=ABS(INT(U(S)))
  25. 240  IF U(S)>3 THEN 260
  26. 250  IF U(S)>0 THEN 290
  27. 260  PRINT"HORSE NO. OR WIN-PLACE-SHOW BET IN ERROR"
  28. 270  LET R = 3*(J-1)
  29. 280  INPUT V(S)
  30. 290  IF V(S) -2=ABS(V(S)-2) THEN 320
  31. 300  PRINT"BET MUST BE >$2 AND <$300, BET AGAIN";
  32. 310  GOTO 280
  33. 320  IF V(S)>300 THEN 300
  34. 330  IF Y1 = 1 THEN 170
  35. 340  PRINT
  36. 350  PRINT"   THEY'RE OFF AND RUNNING -"
  37. 360  PRINT
  38. 370  LET M(1) = 62.25
  39. 380  M(2) = 60
  40. 390  M(3) = 350/6
  41. 400  M(4) = 500/9
  42. 410  M(5) = 55
  43. 420  M(6) = 650/12
  44. 430  M(7) = 1100/21
  45. 440  M(8) = 1600/31
  46. 450  LET O(1) = 6
  47. 460  O(2) = 8
  48. 470  O(3) = 10
  49. 480  O(4) = 16
  50. 490  O(5) = 18
  51. 500  O(6) = 22
  52. 510  O(7) = 40
  53. 520  O(8) = 60
  54. 530  FOR N = 1 TO 8
  55. 540  LET H(N)=0
  56. 550  NEXT N
  57. 560  LET K = 0
  58. 570  LET G=1
  59. 580  LET J = 1
  60. 590  LET N = 4*T(1)-U(1)
  61. 600  FOR Z5=S TO 5*V(S)+N
  62. 610  LET Z1=RND(1)
  63. 620  NEXT Z5
  64. 630  FOR Z5=1 TO 500000
  65. 640  IF INT(Z5/N)-G<>0 THEN 820
  66. 650  LET H(J)=H(J)+RND(1)*M(J)
  67. 660  LET J=J+1
  68. 670  LET G=G+1
  69. 680  IF J <> 9 THEN 810
  70. 690  LET J = 1
  71. 700  GOSUB 1340
  72. 710  LET D = H(B(1))
  73. 720  LET K=K+1
  74. 730  PRINT
  75. 740  IF K = 8 THEN 780
  76. 750  GOSUB 1940
  77. 760  GOSUB 1590
  78. 770  GOTO 820
  79. 780  PRINT"           FINISH"
  80. 790  LET Z5=500001
  81. 800  GOSUB 1590
  82. 810  LET Z1=RND(1)
  83. 820  NEXT Z5
  84. 830  PRINT
  85. 840  PRINT
  86. 850  PRINT"$2 MUTUELS PAID:"
  87. 860  PRINT"          STRAIGHT  PLACE     SHOW"
  88. 870  LET K = 0
  89. 880  FOR I = 1 TO 3
  90. 890  GOSUB 1650
  91. 900  LET J=I
  92. 910  IF J = 1 THEN 950
  93. 920  PRINT"         ";
  94. 930  LET J=J-1
  95. 940  GOTO 910
  96. 950  FOR J = I TO 3
  97. 960  LET L=I+I+J
  98. 970  IF J > 1 THEN 1000
  99. 980  LET R = 1
  100. 990  GOTO 1010
  101. 1000  LET R = 3*(J-1)
  102. 1010  LET H(L)=1.5+0.01*INT((O(B(I))/R+RND(1))*100)
  103. 1020  PRINT H(L);
  104. 1030  NEXT J
  105. 1040  PRINT
  106. 1050  NEXT I
  107. 1060  PRINT
  108. 1070  LET Q=0
  109. 1080  FOR J=1 TO S
  110. 1090  PRINT "BET NO. ";J
  111. 1100  LET P=0
  112. 1110  FOR I = 1 TO 3
  113. 1120  IF B(I) <> T(J) THEN 1190
  114. 1130  IF U(J) < I THEN 1250
  115. 1140  LET P = 0.01*INT((V(J)*50)*H(I+I+U(J)))
  116. 1150  PRINT "YOU COLLECT";P;"ON ";
  117. 1160  GOSUB 1650
  118. 1170  PRINT
  119. 1180  GOTO 1270
  120. 1190  NEXT I
  121. 1200  LET I = T(J)
  122. 1210  PRINT"TEAR UP YOUR TICKET ON ";
  123. 1220  FOR I = 4 TO 8
  124. 1230  IF B(I) = T(J) THEN 1160
  125. 1240  NEXT I
  126. 1250  PRINT"NEXT TIME, PURCHASE A SHOW TICKET ON ";
  127. 1260  GOTO 1160
  128. 1270  LET Q = Q+P-V(J)
  129. 1280  NEXT J
  130. 1290  GOTO 2280
  131. 1300  PRINT"YOUR TOTAL WINNINGS AMOUNT TO $";Q2
  132. 1310  GOTO 2170
  133. 1320  PRINT"YOUR TOTAL LOSSES AMOUNT TO $";ABS(Q2)
  134. 1330  GOTO 2170
  135. 1340  LET Q = 1
  136. 1350  FOR L1 = 1 TO 8
  137. 1360  LET B(L1) = 1
  138. 1370  LET A(L1) = 1
  139. 1380  NEXT L1
  140. 1390  FOR L1 = 1 TO 8
  141. 1400  FOR L2 = 1 TO 8
  142. 1410  IF L1=L2 THEN 1450
  143. 1420  IF H(L1)<>H(L2) THEN 1450
  144. 1430  PRINT"RERUN PLEASE"
  145. 1440  STOP
  146. 1450  IF H(L1)<H(L2) THEN 1470
  147. 1460  LET A(L1)=A(L1)+1
  148. 1470  NEXT L2
  149. 1480  LET A(L1) = A(L1) - 1
  150. 1490  NEXT L1
  151. 1500  FOR L1=8 TO 1 STEP -1
  152. 1510  FOR L2 = 1 TO 8
  153. 1520  IF A(L2)<>L1 THEN 1560
  154. 1530  LET B(Q) = L2
  155. 1540  LET Q=Q+1
  156. 1550  LET L2 = 9
  157. 1560  NEXT L2
  158. 1570  NEXT L1
  159. 1580  RETURN
  160. 1590  REM
  161. 1600  IF K = 8 THEN 1930
  162. 1610  PRINT"POS.  HORSE   LENGTHS BEHIND"
  163. 1620  PRINT
  164. 1630  FOR I = 1 TO 8
  165. 1640  PRINT I;
  166. 1650  IF B(I)=1 THEN 1860
  167. 1660  IF B(I)=2 THEN 1840
  168. 1670  IF B(I)=3 THEN 1820
  169. 1680  IF B(I)=4 THEN 1800
  170. 1690  IF B(I)=5 THEN 1780
  171. 1700  IF B(I)=6 THEN 1760
  172. 1710  IF B(I)=7 THEN 1740
  173. 1720  PRINT"COALTOWN   ";
  174. 1730  GOTO 1870
  175. 1740  PRINT"STYMIE     ";
  176. 1750  GOTO 1870
  177. 1760  PRINT"GALLANT FOX";
  178. 1770  GOTO 1870
  179. 1780  PRINT"SEABISCUIT ";
  180. 1790  GOTO 1870
  181. 1800  PRINT"ASSAULT    ";
  182. 1810  GOTO 1870
  183. 1820  PRINT"WHIRLAWAY  ";
  184. 1830  GOTO 1870
  185. 1840  PRINT"CITATION   ";
  186. 1850  GOTO 1870
  187. 1860  PRINT"MAN O'WAR  ";
  188. 1870  IF K = 0 THEN 1930
  189. 1880  IF I > 1 THEN 1910
  190. 1890  PRINT
  191. 1900  GOTO 1920
  192. 1910  PRINT 0.1*INT(D-H(B(I)))
  193. 1920  NEXT I
  194. 1930  RETURN
  195. 1940  IF K=1 THEN 2040
  196. 1950  IF K=2 THEN 2060
  197. 1960  IF K=3 THEN 2080
  198. 1970  IF K=4 THEN 2100
  199. 1980  IF K=5 THEN 2120
  200. 1990  IF K=6 THEN 2140
  201. 2000  IF K = 7 THEN 2020
  202. 2010  GOTO 2150
  203. 2020  PRINT"   COMING DOWN THE STRETCH -"
  204. 2030  GOTO 2150
  205. 2040  PRINT"   AS THEY BREAK FROM THE GATE -"
  206. 2050  GOTO 2150
  207. 2060  PRINT"   AT THE 1/4 MILE POLE -"
  208. 2070  GOTO 2150
  209. 2080  PRINT"   NEARING THE HALFWAY MARK -"
  210. 2090  GOTO 2150
  211. 2100  PRINT"   MIDWAY IN THE RACE -"
  212. 2110  GOTO 2150
  213. 2120  PRINT"   AT 5/8 OF A MILE -"
  214. 2130  GOTO 2150
  215. 2140  PRINT "   ROUNDING THE TURN -"
  216. 2150  RETURN
  217. 2160  END
  218. 2170  INPUT"DO YOU WANT TO BET ON THE NEXT RACE (Y OR N)";W$
  219. 2180  IF W$="N" THEN 2210
  220. 2190  IF W$="Y" THEN 50
  221. 2200  GOTO 2170
  222. 2210  IF Q2>0 THEN 2250
  223. 2220  IF Q2<0 THEN 2260
  224. 2230  PRINT"BYE NOW!!!!<UNK! {0007}><UNK! {0007}><UNK! {0007}><UNK! {0007}><UNK! {0007}>"
  225. 2240  GOTO 2160
  226. 2250  PRINT"PUT THE MONEY I OWE YOU ON MY TAB<UNK! {0007}>!<UNK! {0007}>!<UNK! {0007}>":GOTO 2160
  227. 2260  PRINT"PUT THE MONEY YOU OWE ME ON THE TERMINAL!!!"
  228. 2270  GOTO 2160
  229. 2280  Q2=Q+Q2
  230. 2290  IF Q2=0 THEN 2320
  231. 2300  IF Q2<0 THEN 1320
  232. 2310  GOTO 1300
  233. 2320  PRINT"WELL YOU BROKE EVEN!"
  234. 2330  GOTO 2170
  235.